<%OPTION EXPLICIT%>
<%
Response.Expires = -100
Response.Buffer =  false
Dim sXml, sOrigen
'sXml = Request(Server.URLEncode("sXml"))
sXml = Request("sXml")
'response.Write sXml

sOrigen = UCASE(Request("Origen"))
'sXml = replace(sXml,"\","\\")		
 
%>
<HTML>
<HEAD>
<LINK rel="stylesheet" type="text/css" href="../Styles/menu.CSS">
<LINK rel="stylesheet" type="text/css" href="../Styles/SIGIN.CSS">
<script language="javascript">

function Inicio()
{
//Origen de Archivos para levantar el nombre de los mismos
 
//if ("<%'=sOrigen%>" == "PEDIDO" )
//{
//debugger
    
	var txtXmlArchivos = parent.window.document.all.txtXmlArchivos.value;
	var sXMLResult		=	unescape("<%= sXml %>");

	if(txtXmlArchivos == ""){
		parent.window.document.all.txtXmlArchivos.value = sXMLResult;
	}
	else{
		
		txtXmlArchivos	=	unescape(txtXmlArchivos);

		//var xmlNew		=	"<'%= sXML %>";
		//var xmlAppend = "<'%= Mid(sXml, 12) %>"; //aca adjunta los archivos ..
		var xmlAppend	=	sXMLResult.substr(11);
				
		txtXmlArchivos = txtXmlArchivos.replace("</registros>", xmlAppend)
		//parent.window.document.all.txtXmlArchivos.value =	 escape(txtXmlArchivos);
		parent.window.document.all.txtXmlArchivos.value =	txtXmlArchivos;
	}

	//parent.window.document.all.txtXmlArchivos.value = "<'%=sXml%>"
	//parent.window.document.all.tblArchivosPedido.style.display = "none"  
	//parent.window.document.all.tblDatosPedido.style.display = "block"  
	//ert(parent.window.document.all.txtXmlArchivos.value)

 //}

parent.window.document.all.txtXmlArchivos.click()
//window.location.href = "carch.asp?UrlDestino=ExecPedido.asp" 

}


</script>
</HEAD>
<BODY bgcolor="#cccccc" onLoad="Inicio()" >
<DIV id="Mensaje" class="Mensaje" ALIGN="CENTER" style="height:30;width:350;position:absolute;left:100;top:50;z_index:10" >Aguarde...
</DIV>       
</BODY>

</HTML>

